unit ec_comment;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ec_monospacedtextbase;

type

  { TECCommentFrame }

  TECCommentFrame = class(TECMonospacedTextBaseFrame)
  public
    function GetCommandCode: Integer; override;
    function GetContinuationCommandCode: Integer; override;
  end;

var
  ECCommentFrame: TECCommentFrame;

implementation

uses
  constants;

{$R *.lfm}

{ TECCommentFrame }

function TECCommentFrame.GetCommandCode: Integer;
begin
  GetCommandCode := COMMENT_EC_CODE
end;

function TECCommentFrame.GetContinuationCommandCode: Integer;
begin
  GetContinuationCommandCode := COMMENT_CONTINUATION_EC_CODE
end;

end.

